home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / LANG / PROLOG / BP330 / !BinPro330 / progs / fibo < prev    next >
Text File  |  1994-11-16  |  610b  |  26 lines
  1. fibo(N,X):-N=<1,!,X=1.
  2. fibo(N,X):-N1 is N-1,N2 is N-2,fibo(N1,X1),fibo(N2,X2),X is X1+X2.
  3.  
  4. range(Min,Min,Max):-Min=<Max.
  5. range(I,Min,Max):-
  6.         Min<Max,
  7.         Min1 is Min+1,
  8.         range(I,Min1,Max).
  9.         
  10. f_iter(Max,N,R):-range(_,1,Max),fibo(N,R),fail.
  11. f_iter(_,N,R):-fibo(N,R).
  12.  
  13. go(Mes):-
  14.     I=50,N=16,
  15.     statistics(runtime,_),
  16.     statistics(global_stack,[H1,_]),
  17.     statistics(trail,[TR1,_]),
  18.     f_iter(I,N,R),
  19.     statistics(runtime,[_,T]),
  20.     statistics(global_stack,[H2,_]),
  21.     statistics(trail,[TR2,_]),
  22.     H is H2-H1,TR is TR2-TR1,
  23.     nl,write(Mes=[time=T,heap=H,trail=TR,fibo(N,R)]),nl.
  24.  
  25. go:-go('BMARK_fibo:').
  26.